<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorks® NonCommercial, 7.6 of March 3, 2008 on March 26, 2009 at 2:22:18 pm</time-stamp>


<class>
<name>SupplyChainAppModel</name>
<environment>SupplyChain</environment>
<super>UI.ApplicationModel</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars>inventoryList model </inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category></category>
<attributes>
<package>SupplyChain</package>
</attributes>
</class>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<methods>
<class-id>SupplyChain.SupplyChainAppModel class</class-id> <category>interface specs</category>

<body package="SupplyChain" selector="windowSpec">windowSpec
	"Tools.UIPainter new openOnClass: self andSelector: #windowSpec"

	&lt;resource: #canvas&gt;
	^#(#{UI.FullSpec} 
		#window: 
		#(#{UI.WindowSpec} 
			#label: 'Supply Chain' 
			#bounds: #(#{Graphics.Rectangle} 640 512 963 712 ) ) 
		#component: 
		#(#{UI.SpecCollection} 
			#collection: #(
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 25 6 106 28 ) 
					#name: #ActionButton1 
					#model: #add 
					#label: 'Add Item' 
					#defaultable: true ) 
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 13 85 120 108 ) 
					#name: #ActionButton3 
					#model: #edit 
					#label: 'Edit Selected Item' 
					#defaultable: true ) 
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 24 128 105 151 ) 
					#name: #ActionButton4 
					#model: #view 
					#label: 'View Report' 
					#defaultable: true ) 
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 24 164 105 187 ) 
					#name: #ActionButton5 
					#model: #exit 
					#label: 'Exit' 
					#defaultable: true ) 
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 25 44 106 67 ) 
					#name: #ActionButton2 
					#model: #remove 
					#label: 'Remove Item' 
					#defaultable: true ) 
				#(#{UI.SequenceViewSpec} 
					#layout: #(#{Graphics.Rectangle} 134 6 305 186 ) 
					#name: #List1 
					#model: #inventoryList 
					#useModifierKeys: true 
					#selectionType: #highlight ) ) ) )</body>
</methods>

<methods>
<class-id>SupplyChain.SupplyChainAppModel class</class-id> <category>instance creation</category>

<body package="SupplyChain" selector="new"></body>
</methods>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<methods>
<class-id>SupplyChain.SupplyChainAppModel</class-id> <category>aspects</category>

<body package="SupplyChain" selector="inventoryList">inventoryList
	"This method was generated by UIDefiner.  Any edits made here
	may be lost whenever methods are automatically defined.  The
	initialization provided below may have been preempted by an
	initialize method."

	^inventoryList isNil
		ifTrue:
			[inventoryList := SelectionInList new]
		ifFalse:
			[inventoryList]</body>
</methods>

<methods>
<class-id>SupplyChain.SupplyChainAppModel</class-id> <category>actions</category>

<body package="SupplyChain" selector="add"></body>

<body package="SupplyChain" selector="edit"></body>

<body package="SupplyChain" selector="exit"></body>

<body package="SupplyChain" selector="remove"></body>

<body package="SupplyChain" selector="view"></body>
</methods>

<methods>
<class-id>SupplyChain.SupplyChainAppModel</class-id> <category>initialize-release</category>

<body package="SupplyChain" selector="initialize"></body>
</methods>

</st-source>
